DEFINITION MODULE ClipBoard;

(* Jefferson Software Copyright 1986 *)

(* Jefferson Software      *)
(* 12416 N 28th Dr #18-236 *)
(* Phoenix,  AZ 85029-2434 *)
(* (602)243-3106           *)

(* Phase BBS (602)849-1287 (up to 2400 baud) has source *)
(* and answers about Jefferson Software Modula in Sig 8 *)

(* Compuserve ID 73637, 1245 *)

(* Permission to use this source is given to all who   *)
(* agree to include Jefferson Software's copyright     *)
(* notice, address, and phone number in all copies of  *)
(* this source or source derived from this source.     *)
(* Please send any changes, updates or bugs to us at   *)
(* Jefferson Software. If you have code you want to    *)
(* share with us all, send it and any documentation to *)
(* us. Please tell us if you want your name included.  *)

FROM SYSTEM IMPORT ADDRESS;

TYPE
  clipInfo = RECORD
    size     : LONGINT;
    location : ADDRESS;
    dirty    : INTEGER;
    where    : INTEGER;
    filename : ARRAY [0..15] OF CHAR;
  END;

  PClipInfo = POINTER TO clipInfo;

PROCEDURE InfoClip(VAR info : PClipInfo) : INTEGER;

PROCEDURE UnloadClip() : INTEGER;

PROCEDURE LoadClip() : INTEGER;

PROCEDURE ZeroClip;

PROCEDURE PutClip(length : LONGINT; source : ADDRESS) : INTEGER;

PROCEDURE GetClip(length : ADDRESS;
                  source : ADDRESS;
                  loadflag : CHAR) : INTEGER;

PROCEDURE InitClip;

END ClipBoard.
